VERSION 5.00
Begin VB.UserControl ClientSexHistCtrl 
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   3870
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11415
   ScaleHeight     =   3870
   ScaleWidth      =   11415
   Begin VB.Label RecentPartnerDetails_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   7380
      TabIndex        =   42
      Top             =   1200
      Width           =   2955
   End
   Begin VB.Label Label7 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Recent Partner Details (<6mo):"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7260
      TabIndex        =   41
      Top             =   900
      Width           =   3135
   End
   Begin VB.Label BloodTrans_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   3
      Top             =   3180
      Width           =   2535
   End
   Begin VB.Label TBSymptoms_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   7380
      TabIndex        =   40
      Top             =   2520
      Width           =   3555
   End
   Begin VB.Label NumLifePart_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   7
      Top             =   540
      Width           =   2535
   End
   Begin VB.Label DateLastSex_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   6
      Top             =   1200
      Width           =   2535
   End
   Begin VB.Label EverRaped_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   5
      Top             =   1860
      Width           =   2895
   End
   Begin VB.Label Pregnant_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   4
      Top             =   2520
      Width           =   2535
   End
   Begin VB.Label PartnerInLast6Mmo_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   7380
      TabIndex        =   2
      Top             =   540
      Width           =   3555
   End
   Begin VB.Label STISymptoms_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   7380
      TabIndex        =   1
      Top             =   1860
      Width           =   3555
      WordWrap        =   -1  'True
   End
   Begin VB.Label RefToClinic_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   7380
      TabIndex        =   0
      Top             =   3180
      Width           =   3555
   End
   Begin VB.Label Client_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   720
      TabIndex        =   12
      Top             =   540
      Width           =   2955
   End
   Begin VB.Label PrevTested_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   720
      TabIndex        =   11
      Top             =   1200
      Width           =   2535
   End
   Begin VB.Label PrevHIVTestDate_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   720
      TabIndex        =   10
      Top             =   1860
      Width           =   2535
   End
   Begin VB.Label WhereTested_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   720
      TabIndex        =   9
      Top             =   2520
      Width           =   2535
   End
   Begin VB.Label EverHadSex_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   720
      TabIndex        =   8
      Top             =   3180
      Width           =   2535
   End
   Begin VB.Label Label5 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Symptoms of TB:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7260
      TabIndex        =   39
      Top             =   2220
      Width           =   2715
   End
   Begin VB.Label Label13 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Client | Couple Code:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   25
      Top             =   240
      Width           =   2355
   End
   Begin VB.Label CoupleType_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Previously Tested for HIV:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   24
      Top             =   900
      Width           =   2595
   End
   Begin VB.Label Age_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Month/Year of Test:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   23
      Top             =   1560
      Width           =   2535
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Where Tested:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   22
      Top             =   2220
      Width           =   2535
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Client Ever Had Sex:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   21
      Top             =   2880
      Width           =   2595
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "# Sex Partners (Lifetime):"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   20
      Top             =   240
      Width           =   2955
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Last Time Client Had Sex:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   19
      Top             =   900
      Width           =   2475
   End
   Begin VB.Label HighEduAtt_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Ever been Raped:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   18
      Top             =   1560
      Width           =   2535
   End
   Begin VB.Label Label6 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Is the Client Pregnant:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   17
      Top             =   2220
      Width           =   2475
   End
   Begin VB.Label Label8 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Previous Blood Transfusion:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   16
      Top             =   2880
      Width           =   2775
   End
   Begin VB.Label Label9 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "# Partners in Last 6 Months:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7260
      TabIndex        =   15
      Top             =   240
      Width           =   3135
   End
   Begin VB.Label Label10 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Symptoms of STI:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7260
      TabIndex        =   14
      Top             =   1560
      Width           =   3135
   End
   Begin VB.Label RefToClinic_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Referred to MACRO Clinic (Today):"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7260
      TabIndex        =   13
      Top             =   2880
      Width           =   3795
   End
   Begin VB.Line SexColorLine 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   10
      X1              =   60
      X2              =   60
      Y1              =   660
      Y2              =   3120
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   3
      Left            =   360
      TabIndex        =   38
      Top             =   2820
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   0
      Left            =   360
      TabIndex        =   37
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   1
      Left            =   360
      TabIndex        =   36
      Top             =   1500
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   2
      Left            =   360
      TabIndex        =   35
      Top             =   2160
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   4
      Left            =   3600
      TabIndex        =   34
      Top             =   180
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   5
      Left            =   3600
      TabIndex        =   33
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   6
      Left            =   3600
      TabIndex        =   32
      Top             =   1500
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   7
      Left            =   3600
      TabIndex        =   31
      Top             =   2160
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   8
      Left            =   3600
      TabIndex        =   30
      Top             =   2820
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   9
      Left            =   7020
      TabIndex        =   29
      Top             =   180
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   10
      Left            =   7020
      TabIndex        =   28
      Top             =   1500
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   11
      Left            =   7020
      TabIndex        =   27
      Top             =   2160
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   12
      Left            =   7020
      TabIndex        =   26
      Top             =   2820
      Width           =   255
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      Height          =   3735
      Left            =   60
      Shape           =   4  'Rounded Rectangle
      Top             =   60
      Width           =   11295
   End
End
Attribute VB_Name = "ClientSexHistCtrl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private Sub UserControl_Initialize()

   If ORGANIZATION = "LIGHTHOUSE" Then
      RefToClinic_Label.Visible = False
      RefToClinic_Data.Visible = False
   End If
   
   If SEX = "1" Then
      SexColorLine.BorderColor = vbBlue
   Else
      If SEX = "2" Then
         SexColorLine.BorderColor = vbGreen
      Else
         SexColorLine.BorderColor = vbRed
      End If
   End If
   For I = 0 To 12
      Star(I).Visible = False
   Next I
End Sub

Public Sub SetStar(ByVal StarIdx As Integer)
   Star(StarIdx).Visible = True
End Sub

Public Sub UpdateData()

   If SESSTYPE = "01" Then
      If SEX = "1" Then 'Individual
         Client_Data.Caption = CLIENTCO & " | n/a" & "  (Male)"
      Else
         Client_Data.Caption = CLIENTCO & " | n/a" & "  (Female)"
      End If
   Else
      If SESSTYPE = "02" Then 'Couple
         If SEX = "1" Then
            Client_Data.Caption = CLIENTCO & " | " & COUPCODE & "  (Male)"
         Else
            Client_Data.Caption = CLIENTCO & " | " & COUPCODE & "  (Female)"
         End If
      Else 'Error
         Client_Data.Caption = "Invalid SESSTYPE"
      End If
   End If
   
   Select Case PRTESTED
      Case ""
         PrevTested_Data.Caption = ""
      Case "00"
         PrevTested_Data.Caption = "No"
      Case "01"
         PrevTested_Data.Caption = "Yes HIV+"
      Case "02"
         PrevTested_Data.Caption = "Yes HIV-"
      Case "03"
         PrevTested_Data.Caption = "Inconclusive"
      Case "04"
         PrevTested_Data.Caption = "Did not get result"
      Case "99"
         PrevTested_Data.Caption = "Other"
      Case Else
         PrevTested_Data.Caption = "ERROR"
    End Select

   If TMONTH = "" Then
      PrevHIVTestDate_Data.Caption = ""
   Else
      If TYEAR = "" Then
         PrevHIVTestDate_Data.Caption = TMONTH
      Else
         PrevHIVTestDate_Data.Caption = TMONTH & " / " & TYEAR
      End If
   End If

   If ORGANIZATION = "MACRO" Then
      Select Case PRTESITE
         Case ""
            WhereTested_Data.Caption = ""
         Case "01"
            WhereTested_Data.Caption = "This MACRO Site"
         Case "02"
            WhereTested_Data.Caption = "Other MACRO Site"
         Case "03"
            WhereTested_Data.Caption = "Public Clinic/Hospital"
         Case "04"
            WhereTested_Data.Caption = "Private Clinic/Hospital"
         Case "05"
            WhereTested_Data.Caption = "CHAM"
         Case "06"
            WhereTested_Data.Caption = "Other NGO"
         Case "98"
            WhereTested_Data.Caption = "N/A"
         Case "99"
            WhereTested_Data.Caption = "Other"
         Case Else
            WhereTested_Data.Caption = "ERROR"
      End Select
   Else
      If ORGANIZATION = "LIGHTHOUSE" Then
         Select Case PRTESITE
            Case ""
               WhereTested_Data.Caption = ""
            Case "11"
               WhereTested_Data.Caption = "LH (Centre)"
            Case "12"
               WhereTested_Data.Caption = "LH (Bottom)"
            Case "13"
               WhereTested_Data.Caption = "LH (KCH Medical)"
            Case "14"
               WhereTested_Data.Caption = "LH (KCH Paeds)"
            Case "15"
               WhereTested_Data.Caption = "LH (Area 18)"
            Case "16"
               WhereTested_Data.Caption = "LH (Chinsapo)"
            Case "17"
               WhereTested_Data.Caption = "MACRO"
            Case "05"
               WhereTested_Data.Caption = "CHAM"
            Case "03"
               WhereTested_Data.Caption = "Public Clinic/Hospital"
            Case "04"
               WhereTested_Data.Caption = "Private Clinic/Hospital"
            Case "98"
               WhereTested_Data.Caption = "N/A"
            Case "99"
               WhereTested_Data.Caption = "Other"
            Case Else
               WhereTested_Data.Caption = "ERROR"
         End Select
      End If
   End If
      
   If EVERHAD = "" Then
      EverHadSex_Data.Caption = ""
   Else
      If EVERHAD = "0" Then
         EverHadSex_Data.Caption = "No"
      Else
         If EVERHAD = "1" Then
            EverHadSex_Data.Caption = "Yes"
         Else
            EverHadSex_Data.Caption = "ERROR"
         End If
      End If
   End If
   
   NumLifePart_Data.Caption = LIFEPART
   
   If SMONTH = "" Then
      DateLastSex_Data.Caption = ""
   Else
      If SYEAR = "" Then
         DateLastSex_Data.Caption = SMONTH
      Else
         DateLastSex_Data.Caption = SMONTH & " / " & SYEAR
      End If
   End If
   
   If EVERAPED = "" Then
      EverRaped_Data.Caption = ""
   Else
      If EVERAPED = "0" Then
         EverRaped_Data.Caption = "No"
      Else
         If EVERAPED = "1" Then
            EverRaped_Data.Caption = "Yes"
         Else
            EverRaped_Data.Caption = "ERROR"
         End If
      End If
   End If
   
   Select Case PREG
     Case ""
        Pregnant_Data.Caption = ""
     Case "00"
        Pregnant_Data.Caption = "No"
     Case "01"
        Pregnant_Data.Caption = "Yes"
     Case "97"
        Pregnant_Data.Caption = "Don't know"
     Case "98"
        Pregnant_Data.Caption = "N/A"
     Case Else
        Pregnant_Data.Caption = "ERROR"
   End Select
   
   Select Case TRANSFUS
     Case ""
        BloodTrans_Data.Caption = ""
     Case "00"
        BloodTrans_Data.Caption = "No"
     Case "01"
        BloodTrans_Data.Caption = "Yes"
     Case "97"
        BloodTrans_Data.Caption = "Don't know"
     Case Else
        BloodTrans_Data.Caption = "ERROR"
   End Select
   
   If PART6MO >= 0 Then
      PartnerInLast6Mmo_Data.Caption = PART6MO
   Else
      PartnerInLast6Mmo_Data.Caption = ""
   End If
   
   RecentPartnerDetails_Data.Caption = RecentPartnerDetails
   
   If STISYMPT = "" Then
      STISymptoms_Data.Caption = ""
   Else
      If STISYMPT = "0" Then
         STISymptoms_Data.Caption = "No"
      Else
         If STISYMPT = "1" Then
            STISymptoms_Data.Caption = "Yes"
         Else
            STISymptoms_Data.Caption = "ERROR"
         End If
      End If
   End If

   If TBSYMPT = "" Then
      TBSymptoms_Data.Caption = ""
   Else
      If TBSYMPT = "0" Then
         TBSymptoms_Data.Caption = "No"
      Else
         If TBSYMPT = "1" Then
            TBSymptoms_Data.Caption = "Yes"
         Else
            TBSymptoms_Data.Caption = "ERROR"
         End If
      End If
   End If

   Select Case REFERRED
     Case ""
        RefToClinic_Data.Caption = ""
     Case "0"
        RefToClinic_Data.Caption = "Not referred"
     Case "1"
        RefToClinic_Data.Caption = "Yes, for STI"
     Case "2"
        RefToClinic_Data.Caption = "Yes, for TB"
     Case "3"
        RefToClinic_Data.Caption = "Yes, other"
     Case Else
        RefToClinic_Data.Caption = "ERROR"
   End Select

End Sub

Public Sub PrintClientInfo()
Const SexHistTop = 5000
   Dim TempY As Integer

   'Printer.CurrentY = SexHistTop
   TempY = Printer.CurrentY
   Printer.CurrentX = 600
   Printer.Print "Previously Tested for HIV:   " & PrevTested_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Month/Year of Test:   " & PrevHIVTestDate_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Where Tested:   " & WhereTested_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Client Ever Had Sex:   " & EverHadSex_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "# Sex Partners (Lifetime):   " & NumLifePart_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Last Time Client Had Sex:   " & DateLastSex_Data.Caption
   
   Printer.CurrentY = TempY
   Printer.CurrentX = 5800
   Printer.Print "Ever been Raped:   " & EverRaped_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Is the Client Pregnant:   " & Pregnant_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Previous Blood Transfusion:   " & BloodTrans_Data.Caption
   'Printer.CurrentX = 500
   'Printer.Print "# Partners in Last 6 Months: " & PartnerInLast6Mmo_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Symptoms of STI:   " & STISymptoms_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Symptoms of TB:   " & TBSymptoms_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Referred to Clinic:   " & RefToClinic_Data.Caption
   Printer.Print
   
   'Printer.EndDoc

End Sub

Public Sub SetShape(ByVal ShapePar As Integer)
   Shape2.Shape = ShapePar
End Sub


